home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
ADEMO6.VIR
< prev
next >
Wrap
Text File
|
1992-08-31
|
964b
|
34 lines
{===================================================================
Activate BUFFERS unit for heap memory management
===================================================================}
procedure TGenericApp.PreInit ;
begin
GENERAL.ReserveForData ( 32 * ( 1024 div 16 ) ) ;
InitBuffers ;
EDITORS.EditorDialog := EditorDialog ; { *.INC }
end ;
{===================================================================
COMMAND SET
===================================================================}
CONST
EdCommandSet : TCommandSet =
[
cmSave ,
cmFind ,
cmReplace ,
cmSearchAgain
] ;
{===================================================================
Disable menu commands
===================================================================}
procedure TGenericApp.PostInit ;
begin
Application^.DisableCommands ( EdCommandSet ) ;
end ;